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EDITORIAL 

Sentindo os problemas dos usudrios de microcomputadores, em 
termos de acessibilidade a programas, em especial os que envolvem 
lazer, bem como os diddticos, foi que surgiu a iddia desta publicapSo, 
com a finalidade de satisfazer as necessidades atd entSo existentes. 

Esta publicapdo nffo se resume a "simples programas", e sim pro- 
gramas que de certa forma transmiteni "truques", tais como movi- 
mentos, placares, desenhos, etc. 

Com a evolupSo espantosa na drea de informdtica, e que a cada dia 
se ainplia, lutaremos para acompanhd-la, e sempre levar aos leitores, 
atravds da revista SO PROGRAMAS esta verdadeira revolupdo. 

Acreditanx>s que o leitor encontrard nesta publicapdo, o que sempre 
esperou: "SO PROGRAMAS". 

O EDITOR 
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(Sua/aue/i voiba 



Como o nome jd diz, este programa e "QUALQUER COISA". 
Voc€ j3 pensou se um dia chegar em casa e encontrar seu microcompu- 
tador ligado e na tela um lembrete dizendo: 

QUERIDO TIAO DEIXEI NOSSO PENTE PRESO NA PIA. NAO 
SE ESQUEQA DE TIRAR AS SUAS PEDRAS DO PALETO PARA 
EVITAR QUE SE ESTRAGUEM. 

LEVE ATE 0 SR. ZE ESTE PREGO CHEIO DE MELADO PARA 
LAVAR. 

ESCOVE SEU ZE ANTES DE LAVAR SUAS PEDRAS. 

TCHAU. E UM POSTE DE SUA ESTOPIDA QUE TE AMA. 

ASS. JERVASIA. 








Este programa tem Vclrias utilidades, uma delas 6 fazer voce sorrir 
mesmo sem vontade, desde que voce use sua imaginapSo para distribuir 
com criatividade os seguintes itens: 

1. QUATRO SUBSTANTIVOS QUAISQUER COMO: SOPA, 
MELADO, ETC. 

2. QUATRO ADJETIVOS NO FEMININO COMO: FEIA, MA- 
GRA, ETC. 

3. QUATRO OBJETOS NO MASCULINO COMO: SAPATO, 
MARTELO, ETC. 

4. QUATRO OBJETOS NO FEMININO COMO: MEIA, CALQA, 
ETC. 

5. DOIS NOMES PROPRIOS NO MASCULINO. 

6. DOIS NOMES PROPRIOS NO FEMININO. 

IMPORTANTE: TODAS AS PALAVRAS DE QUALQUER ITEM 

SO PODERAO TER UM MAXIMO DE OITO LETRAS. 

Voc5 pode optar por quatro tipos de "loucura": 

1. CARTA 

2. NOTA DE FALECIMENTO 

3. LEMBRETE 

4. PERDEU-SE 

SUGESTAO: Tente alterar uma das quatro oppoes, ou at6 inserir 
outras. 

BOM DIVERTIMENTO (especialmente em passar trezentas linhas 
de programa). 

PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATlVEIS 



1 REM QUALQUER COISA 
5 REM SIDNEY PARETTI 
10 DIM AS (4,8) 

20 DIM B$ (4,8) 

30 DIM C$ (4,8) 

40 DIM D$ (4,8) 

50 DIM E$ (2,8) 

60 DIM F$ (2,8) 

70 PRINT AT 6,8;"4 SUBSTANTIVOS" 
75 INPUT AS (1) 

80 PRINT AT 7,8;A$ (1) 

90 INPUT A$ (2) 

100 PRINT AT 8,8;AS (2) 

110 INPUT AS (3) 

120 PRINT AT9,8;A$ (3) 

130 INPUT AS (4) 

140 PRINT AT 10,8^$ (4) 

150 CLS 

160 PRINT AT 6,8;"4 ADJETIVOS (F):" 
170 INPUT B$ (1) 

180 PRINT AT 7,8;B$ (1) 

190 INPUT B$ (2) 

200 PRINT AT 8,8;B$ (2) 

210 INPUT B$ (3) 

220 PRINT AT 9,8;B$ (3) 

230 INPUT B$ (4) 
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240 PRINT AT 10,8;B$ (4) 

250 CLS 

260 PRINT AT 6,8 ;"4 OBJETOS (M):" 

270 INPUT C$ (1) 

280 PRINT AT 7,8 £$ (1) 

290 INPUT C$ (2) 

300 PRINT AT 8,8;C$ (2) 

310 INPUT C$(3) 

320 PRINT TA 9,8;C$ (3) 

330 INPUT CS (4) 

340 PRINT AT 10,8 ;C$ (4) 

350 CLS 

360 PRINT AT 6,8;"4 OBJETOS (F):" 

370 INPUT D$ (1) 

380 PRINT AT 7,8;D$ (1) 

390 INPUT D$ (2) 

400 PRNI AT 8,8 ;D$ (2) 

410 INPUT D$ (3) 

420 PRINT AT9,8;D$ (3) 

430 INPUT D$ (4) 

440 PRINT AT10,8;D$ (4) 

450 CLS 

470 PRINT AT 6,8;"2 NOMES (M):" 

480 INPUT E$ (1) 

490 PRINT AT 7,8;E$ (1) 

500 INPUT E$ (2) 

510 PRINT AT 8,8;E$ (2) 

520 CLS 

530 PRINT AT 6,8;"2 NOMES (F):" 

540 INPUT F$ (1) 

550 PRINT AT7,8;F$ (1) 

560 INPUT F$ (2) 

570 PRINT AT8,8;F$ (2) 

580 CLS 

600 PRINT AT 5,6 ;"ESCOLHAUM NUMERO:" 

610 LET A= INT (RND * 3) + 1 

620 LET B= INT (RND* 4) + 1 

630 LET C= INT (RND * 3) + 1 

640 LET D= INT (RND *3) +2 

650 LET E= INT (RND* 2) + 1 

660 LET F= INT (RND* 2) + 1 

670 IF INKEYS = "1" THEN GOTO 1000 

680 IF INKEYS = "2" THEN GOTO 2000 

690 IF INKEYS = " 3 " THEN GOTO 3000 

700 IF INKEYS = "4" THEN GOTO 4000 

710 PRINT AT 6,6;"1. CARTA" 

720 PRINT AT 7,6;' J 2. NOTA DE FALECIMENTO" 
730 PRINT AT 8,6;"3. LEMBRETE" 

740 PRINT AT 9,6;"4. PERDEU-SE" 

1000 CLS 

1005 PRINT AT 1,7 ;"ILMO. SR." 

1010 PRINT AT 1,17;E$(E) 

1020 PRINT AT 4,3;"VENHO POR MEIO DESTA" 
1030 PRINT AT 4,24;A$ (A) 
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1040 PRINT AT 5,1 ;"PEDIR UMA PARA USAR NO" 

1050 PRINT AT 5,11 ;D$ (D) 

1060 PRINT AT 6,9;", POIS ESTOU COM A MINHA" 

1070 PRINT AT 6,1 ;C$(C) 

1080 PRINT AT 7,9;"LOTADA DE 
1090 PRINT AT 7,1 ;D$(B);AT 7,19;A$ (D) 

1100 PRINT AT 8,3;"POR ESTE MOTIVO SOU OBRIGADO" 
1110 PRINT AT9,1;"A APELAR PARA A SEM TER" 

1120 PRINT AT 9,17;B$ (F) 

1130 PRINT AT 10,10;"COM TOTAL APOIO DAS" 

1140 PRINT AT 10,1 ;D$ (A) 

1150 PRINT AT 1 1 ,9;"PARA JUSTIFICAR MINHAS" 

1160 PRINT AT 11,1 ;B$ (D) 

1170 PRINT AT 12,1 LATITUDES" 

1180 PRINT AT 12,10;BS (A) 

1190 PRINT AT 14,3;"FINDO AQUI COM A AJUDA DO MEU" 
1200 PRINT AT 15,10;"DE QUE TUOO SAIA 
1210 PRINT AT 15,1 ;C$ (B);AT 1 5,27;A$ (C) 

1220 PRINT AT 18,12;" ASS:" 

1230 PRINT AT 18,16;F$ (E) 

1240 PAUSE 2000 
1250 POKE 16437,255 
1260 CLS 
1270 GOTO 600 
2000 CLS 

2005 PRINT AT 2,3;"FALECEU ESTA MANHA O NOSSO" 

2010 PRINT AT3,1;"QUERIDO POR MOTIVO DE" 

2020 PRINT AT3,9;E$ (E) 

2030 PRINT AT 4,10;" EM DEMASIA". 

2040 PRINT AT 4,1 ;A$ (D) 

2050 PRINT AT 5,3;"SEU PARENTE MAIS PROXIMO NOS" 
2060 PRINT AT 6,1 ;"ENVIOU ESTA COMO PRO-" 

2070 PRINT AT6,13;D$(A) 

2080 PRINT AT 7,1;"FUNDO SINAL DE AFETO " 

2090 PRINT AT 8,3 ;"0 FALECIDO DEIXOU ESTA NOTA:" 

2100 PRINT AT 10,3;"AGORA JA NUM OUTRO MUNDO TO-" 
2110 PRINT AT 11,1 ;"DOCHEIO DE E TAMBEM" 

2120 PRINT AT 11,13; C$ (C) 

2130 PRINT AT 12,1 ;"CHEI0 DE FICO FELIZ" 

2140 PRINT AT 12,10;D$ (C) 

2150 PRINT AT 13,1 ;"EM DEIXAR MINHAS PARA" 

2160 PRINT AT 13,18;D$ (A) 

2170 PRINT AT 14,1;"TODOS OS DA MINHA FA-" 

2180 PRINT AT 14,10;A$ (B) 

2190 PRINT AT 15,1;"MILIA DESPECO-ME COM UM GRANDE" 
2200 PRINT AT 16,1 1 ;"DE CALOROSO AFETO". 

2210 PRINT AT 16,1 ;C$ (B) 

2220 PRINT AT 17,3;"DEIXANDO EM ESPECIAL PARA" 

2230 PRINT AT 18,1;"MINHA ESPOSA TODAS AS" 

2240 PRINT AT 18,7;B$ <B) 

2250 PRINT AT 19,1 ;"MINHAS" 

2260 PRINT AT 19,8;D$ (B) 

2270 PAUSE 1500 
2280 POKE 16437,255 




QUE TE AMA." 



CLS 

GOTO 600 
CLS 

PRINT AT 2,3;"QUERIDO DEIXEI NOSSO" 

PRINT AT 2,1 1 ;E$ (F) 

PRINT AT 3,1 1 ;"PRESO NA" 

PRINT AT 3,1 ;C$ (A) 

PRINT AT 3,20;D$ (D) 

PRINT AT 4,1 ;"NAO SE ESQUECA DE TIRAR AS SUAS" 
PRITN AT 5,1 1 ;"DO PARA EVI-" 

PRINT AT 5,1 ;D$ (A) 

PRINT AT 5,14;C$ (D) 

PRINT AT 6,1 ;"TAR QUE SE ESTRAGUEM." 

PRINT AT 7,3;"LEVE ATE 0 SR. ESTE" 

PRINT AT 7,18;E$ (E) 

PRINT AT 8,12;'CHEIO DE PA-" 

PRINT AT 8,1 £$ (A) 

PRINT AT 8,21 ;A$ (A) 

PRINT AT 9,1 ;"RA LAVAR." 

PRINT AT 10,3;"ESCOVE SEU ANTES DE" 

PRINT AT 10,14;E$ (F) 

PRINT AT 1 1 ,1 ;"LAVAR SUAS" 

PRINT AT 1 1 ,12;D$ (A) 

PRINT AT 13,4,'TCHAU. E UM GRANDE" 

PRINT AT 13,23;C$ (C) 

PRINT AT 14,1 ;"DE SUA QUE TE AMA." 

PRINT AT 14,8;B$ (B) 

PRINT AT 17,9;"ASS:" 

PRINT AT 17,14;F$ (F) 

PAUSE 2000 
POKE 16437,255 
CLS 

GOTO 600 
CLS 

PRINT AT 2,4;"PERDEU-SE UM QUE" 

PRINT AT 2,17;C$ (A) 

PRINT AT 3,1 ;"ATENDE PELO NOME DE" 

PRINT AT 3,21 ;E$ (E) 

PRINT AT 5,4;"ELE TEM UM PEQUENO" 

PRINT AT 5,23;C$ (B) 

PRINT AT 6,1 ;"ATRAS DA ORELHA. " 

PRINT AT 8,4;"CUIDADO ELE ATACA QUANDO VE" 
PRINT AT 9,1 ;"UMA" 

PRINT AT 9,5;B$(B) 

PRINT AT 11,4 ;"NAO DE PARA ELE," 

PRINT AT 11,11 ;A$ (A) 

PRINT AT 12,1 ;"POlS ELE SO COME" 

PRINT AT 12,18;B$ (D) 

PRINT AT 14,4;"POR FAVOR ENTREGAR NA RUA" 
PRINT AT 15,1 ;"DAS SEM NUMERO" 

PRINT AT 15,5;B$ (C) 

PRINT AT 17,4;"FALAR COM DONA" 

PRINT AT 17,19;F$ (F) 

PAUSE 2000 
POKE 16437,255 
CLS 

GOTO 600 
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Neste jogo vocS passard a trabalhar numa fabrics de dinamite, mas 
nffo co mo uni carregador de caixas, e sim como agarrador de caixas, 
infelizmente com um colega de trabalho um pouco descuidado, pois 
ele simplesmente atira caixas lotadas de dinamite para que voce as 
pegue. 

Como hoje em dia n^o se deve confiar em ninguem (nem em si 
mesmo, pois de vez em quando voc£ morde a lingua), NAO espere que 
seu "amigo" atire as caixas em suas m£os, mesmo porque ele nao o far2, 
talvez uma vez ou outra. 

Seu objetivo maior 6 "salvar sua pele", evitando que as caixas caiam 
no chSo, caso contrtrio "meus p€sames". 

Voc$<§o" " (ESPAQO) 

As caixas sSo o " Q " (ASTERISCO INVERSO) 

Seus controles sSo: 

"5" ESQUERDA 
"8" DIREITA 

BOA SORTE (c3 entre nds... com amigos como esse pra que ini- 
migos?) 
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35 PRINT AT 1 , 



40 PRINT AT 21 ,0;" 



55 PRINT AT 21,18;"PONTOS: 

70 LET PO = 0 
80 LET K = 0 
90 LET P = 14 
100 FOR N = 0TO 10 

110 LET S = INT (RND * 30) - 1 

111 LET PO = PO + 10 
120 FOR F = 0TO 20 

125 IF F = 20 AND S = P THEN PRINT AT 21,18;"PONTOS:";AT 
21 ,27;PO 

130 IF P < 0 THEN LET P = 0 

140 IF P > 28 THEN LET P = 28 

150 IF INKEYS = "5" THEN LET P = P - 1 

160 IF INKEYS = "8" THEN LETP = P + 1 

175 IF F = 20 AND S < > P THEN GOTO 340 

180 PRINT AT F,S;"^JQf" 

185 PRINT AT F,S /'BIS" 

190 PRINT AT 20,P;''g|j W 
200 NEXT F 

210 NEXT N 

300 PRINT AT 0,0;" 




305 PRINT AT 9,7/TARABENS VOCE FEZ' 



309 PRINT AT 1 1,10;"PONTOS: 

320 PAUSE 120 

325 POKE 16437,255 

330 GOTO 431 

340 FOR G =0 TO 6 

342 PRINT AT 20, S;"^ 

346 PRINT AT 19,8-3;"^^^ 

347 PRINT AT 18,S;" ■ " 

348 PRINT AT 17,S— 1 ■■■ 

349 PRINT ATI 6,S-2;" 



W11,18;PO 









350 PRINT AT 15,5—2;" 

351 PRINT AT 14.S- 

352 PRINT AT 13, S;"*^*" 

353 PRINT AT 12,S;"!1BP1 " 
403 NEXT G 

406 FOR N = 0 TO 21 

407 PRINT AT N,0;"HHH 




408 NEXT N 

409 LET PO = PO — 10 

410 PRINT AT 11,5;"SEUS PONTOS FORAM ";AT 
415 PAUSE 120 

420 POKE 1 6437,255 

431 PRINT AT 1 1,3;"QUER JOGAR DE NOVO (S/N)? # 

432 INPUT X$ 

435 IF X$ = "S" THEN GOTO 437 

436 IF XS = "N" THEN GOTO 439 

437 CLS 

438 RUN 

439 FOR M = 0 TO 21 
490 PRINT AT M,0;" 



500 NEXT M 

520 FOR G = 0 TO 21 

535 SCROLL 

540 NEXT G 

541 STOP 

542 SAVE "DINAMITE' 

543 STOP 




DIGIKIT 



DIGIKIT 



DIGIKIT 



SEGUINDO A LINHA E A FILOSOFIA COMERCIAL DA EDITORA FITTIPALDI DE. SEM- 
PRE COLOCAR AO ALCANCE DOS LEITORES 0 MATERIAL SUFICIENTE PARA QUE SE 
POSSA COMPROVAR, ESTUDAR E ATE MESMO TIRAR PROVEITO DE FORMA DEFINITIVA 
DAS MATERIAS CONTIDAS NAS REVISTAS. A REVISTA =-> r . LANQA NESTA 

EDIQAO DOIS SENSACIONAIS KITS PARA MONTAR, KITS ESTES. QUE SERAO OS PRIMEI 
ROS DE UMA GRANDE LINHA PRETENDIDA PELA DIREQAO DA EMPRESA E QUE. DE 
CERTO MODO VAO AGRADAR A MAIORIA OOS AMIGOS LEITORES. 

OS KITS SERAO SEMPRE COMERCIALIZADOS A PREQO COMPATlVEL COM A REALI- 
DADE COMERCIAL DA PRAQA, E. VENDIDOS POR MEIO DE REEMBOLSO POSTAL PELA: 
DIGIKIT COMfRCIO E EXPORT AQAO DE COMPONENTES ELETRON/COS L TOA , QUE £ UMA 
EMPRESA DO GRUPO FITTIPALDI, PORTANTO COM IDONEIDADE COMPROVADA. 

NAO PERCA TEMPO, PREENCHA O CUPOM E FAQA O SEU PEDIDO HOJE MESMO 



AV. AMADOR 
BUENO DA 
VEIGA, 4.176 
- CEP 03652 - 
SAO PAULO 



SUPER FONTE 

PROJETADO ESPECIALMENTE PARA RESOLVER OS PROBLEMAS DE ALIMENT AQAO DO 
SEU MICRO OU VIDEO GAME DE QUALQUER MARCA. Cr S 36.000.00 



TAPE LOADER ‘ 

INCRlVEL SOLUQAO PARA GRAVAQAO E 
REPRODUQAO DE PROGRAMAS EM FITA 
CASSETE PERMITINDO PASSAGEM DE FITA 
PARA FITA, MESMO EM PROGRAMAS FECHA 
DOS. CrS 15-500.00 



SIM. DESEJO RECEBER PELO REEMBOLSO POSTAL O KIT 

PELO QUAL PAGAREI A QUANTIA DE CrS 

NOME 

ENDEREQO 

BAIRRO CIDADE 

CEP N<?do R. G. 



MAIS DESPESAS POSTAIS. 



N9 . 

ESTADO 





Como em tudo que fazemos na vida sempre existe uma barreira, 
este jogo nSo fica atrds. Seu objetivo 6 eliminar a maior barreira mutante, 
isto 6, mutante porque cresce e diminui, que fica bem abaixo no video, 
mas para eliminar essa barreira voce tern que evitar as outras barreiras 
(tambem mutantes) existentes no centro do video. Em suma, voc£ deve 
desviar de barreiras para eliminar outra barreira (bem de acordo com 
a nossa vida cotidiana). 

Caso acerte uma barreira indesejavel, havera destruipao total de 
suas estruturas (igualzinho as nossas vidas...), mas, se conseguir eliminar 
a barreira principal sera um homem bem sucedido (no jogo, bem enten- 
dido...) marcando uns mfseros pontos (Hal... parece piada). 

Como voce e um homem que nffo para (Idgico, na tela) tern que 
ser bastante astuto para eliminar a barreira principal. Ha uma pequena 
vantagem, se estiver se deslocando para a esquerda e apertar a tecla 
correspondente a esquerda, ira mais rapido para a esquerda, caso aperte 
a tecla correspondente a direita, voc€ ficard imdvel, e o mesmo aconte- 
cera para a direita, mas s 6 que com os controles correspondentes ao 
movimento. 

Voce a o "O" 

A barreira principal 6 o "fl" (ASTERISCO INVERSO) 

As barreiras indesejaveis sao o " | " (ESPAQO INVERSO). 

Tente fugir a regra e elimine a barreira principal (para tornar o jogo 
mais emocionante imagine que essa barreira seja o dinheiro). 
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1 REM BARREIRA 

2 REM SIDNEY PARETTI 

5 SLOW 

6 DIM D$ (6,3) 

7 LET PO = 0 
10 LET C = 3 
15 LET B = 20 

20 LET F = 27 

21 LET A = 28 

22 LET I = 1 

23 LET E =1 

24 LET D = 1 

25 LET G * 1 

30 LET J = 1 

31 LET K = 5 

32 LET W = 13 

33 LET 0 = 1 

34 LET R = 1 

40 LET P = 26 

41 LET D$ (1) = 

42 LET D$ (2) = 

43 LET D$ (3) = 

44 LET D$ (4) = 

45 LET AS = "UU 
50 FOR Y = 1 TO 21 
60 PRINT AT Y,0;"1 
70 NEXTY 

80 PRINT AT 7,0;A$;AT 10,0;A$;AT 13,0;A$;AT 16,0;A$;AT 
19,0;A$ 

100 FOR N = 0 TO 20 

101 LET C = C + I 

102 LET B = B + E 

103 LET A = A + D 

104 LET F = F + G 

105 LTE P = P + J 

106 LET K = K + 0 

107 LET W = W + R 

110 IF P < 0 THEN LET P =0 

111 IF P > 28TEHN LET P = 28 

115 IFC = 2ORC=10 THEN LET I = I * — 1 
120 IF B = 80R B = 21 THEN LET E = E * -1 
125 IF A = 20 OR A = 29 THEN LET D = D * - 1 
130 IF F = 0 OR F * 29 THEN LET G = G *- 1 

135 IF P = 0 OR P = 28 THEN LETJ=J*-1 

136 IF W = 12 OR W = 24 THEN LET R = R * - 1 

137 IF K = 0OR K = 12 THEN LET 0 = 0 *-1 
145 IF INKEY $ = "0" THEN GOSBU 1500 

151 IF INKEY $ = "5" THEN LET P - P — 1 

152 IF INKYE $ = " 8" THEN LET P = P + 1 

160 PRINT AT 

170 PRINT AT 19,A;D$(1) 

180 PRINT AT 16,B;D$(1) 

185 PRINT AT 13,C;D$(1) 

186 PRINT AT 10,K;D$(1) 
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187 

190 

200 

500 

1500 

1501 



1502 

1600 

1700 

1710 

1800 

2000 

2100 

3000 

3100 

3500 

3510 

3520 

3530 

3535 

3536 
3540 



PRINT AT7,W;D$(1) 

PRINT AT 21,F;D$(2) 

PRINT AT 0,P;"O" 

GOTO 100 
FOR L = 0 TO 21 

IF L = 19 AND P > = A OR L = 16ANDP> = B AND P<21 
OR L = 13 AND P> =C AND P< 10 OR L= 10 AND P> = K 
AND P < 12 OR L = 7 AND P > = W AND P < 24 THEN GOTO 
2000 

IF L = 21 AND P>=F THEN GOTO 3500 
PRINT AT L,P;D$(3);AT L,P;D$ (4) 

NEXT L 

PR I NT AT 7,0;A$ ;AT 1 0,0;A$ ;AT 1 3,0 ;A$ ;AT 1 6,0;A$ ;AT 
19,0;A$ 

RETURN 
FOR X = 0 TO 21 

PRINT AT X,0;" DESTRUICAO TOTAL" 

NEXT X 
GOTO 2000 
FOR F = 0 TO 21 
LET PO = PO + 1 
PRINT AT 3,1 ;PO 
NEXT F 



PRINT AT7,0;A$;AT 10,0;A$;AT 13,0;A$;AT 16,0;A$;AT 
19,0;A$ 

PRINT AT 21 ,0;". J ««« »- 

RETURN 



ATENQAO: NA LINHA 2100 TANTO AS LETRAS COMO OS ESPA- 
QOS SAO EM INVERSO. 





•>w.Cr$ 6.700,00 
* 5w “Cr$ 7.000,00 
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nMi wi 

Ctrcoftali . 

Corpo matahco cromado. com 
mt*»ni 0 l»r incorporate fa> com 
n. lava. prtnco. poianta 
fwncmoa com 12 Vo*u c c. KJoal 
poi* o HotMi oua aa dadica ao 
modafcvno, iraOaPioa manoaia. 
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Ot cacunoa imcxaaaoa a ate 

CrS 13.500,00 






Forromanto Auxlllor 

Coioca t mira com facilitate ludo Qua 
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CtxtilricuiiwiiiUwl Oegiandcuii 
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CrS 3.200,00 
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CrS 7.700,00 



PEDIDOS PELO REEMBOLSQ POSTAL 



PUBUKIT 

■uo Motor Ar«olo Sane*.., SI I - tal SIT-SMS - 
C l P 00033 - Uo Fordo V 



PonPto da Franca 



ora aqwa r da a onto da (Haqodo da corraro a 




grteMia da taw andaraca 

NAO ESTAO «NCLU»DAS NOS PREQOS AS OESPESAS OE PORTE E EMBALAGEM 
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Tty A XUS 



Prepare-se, pois a Terra esta prestes a ser invadida pelos seres 
EXTRA-TERRENOS, ou mais especificamente, pelos "NHAKUS". 

Voc§ como um bom terr£queo deve evitar a invasao dos "NHAKUS", 
que por sinal sao muito espertos e possuem as bombas da temfvel "NHA- 
KULOSE" (doenpa fatal aos terrdqueos). 

Antes de tentarem invadir a Terra, os "NHAKUS" soltam bombas 
de camuflagem, bem parecidas ou iguais a "NHAKA" (NAVE MAE), 
principal invasora que vocS deve deter com suas bombas "ANTI-NHA- 
KA". 

Cada "NHAKA" que voce acertar ganhara 500 pontos, caso nSfo 
consiga alcanpar uma "NHAKA" em tempo ha um refugo de um tiro 
no ar, s6 que perdera 1000 pontos, nao se assuste se seu placar for nega- 
tivo, pois voc£ tern uma tolerdncia de ate -5000 pontos, caso contrario, 
sera um portador da famosa doenpa chamada "NHAKULOSE". 

Voc6 6 o "X" 

Seus controles s§o: 

4/ 5" ESQUERDA 
"8" DIREITA 
"0" TIRO. 

CUIDADO NAO SEJA UM NHAKULOSO. 
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PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATIVEIS 



r\ 








W 




1 REM NHAKUS 






2 REM SIDNEY PARETTI 




o 


5 RAND 


O 




6 POKE 16418,0 






10 LET P = 0 




o 


20 LET Y * 11 


o 


30 FAST 






100 FOR F =0 TO 767 






110 PRINT CHR$ 128; 




o 


120 NEXT F 


U 




125 PRINT AT 22,1 ;"PONTOS: 






130 SLOW 


o 


o 


135 LET N = INT (RND * 28) 




140 FOR F = 0 TO 21 






150 IF Y< 0THEN LET Y = 0 




n 


160 IF Y> 28 THEN LET Y =28 


o 




170 PRINT AT RND * 20,30 * RND; CHR$ INT (RND * 10) 






180 IF F = 8 THEN PRINT AT 22,18; "CUIDADO" 




o 


185 IF F = 12 THEN PRINT AT 22,18;" " 


o 


190 IF INKEYS = "5" THEN LET Y = Y-1 


v-/ 




195 IF INKEY$ = "8" THEN LET Y = Y + 1 






200 IF INKEYS = "0" THEN GOTO 1000 


O 


o 


210 PRINT AT 20,Y;"HxH" 




220 PRINT AT F,N;" HUH ";AT F,N;" ■■■ " 






230 IF F = 20 TEHN GOTO 2000 




o 


240 NEXT F 


o 


1000 FOR C = 20 TO F STEP- 1 






1010 IF Y = N AND C = F THEN LET P = P + 500 




o 


1020 IF Y < >N AND C = F THEN LET P = P -750 




1030 IF P< 1000 THEN PRINT AT 22,8;" 






1040 1 F P < -5000 THEN GOTO 2000 






1050 PRINT AT r V-"M "-AT r V." B|" 


o 


o 


1060 NEXT C 




1065 PRINT AT 22,8;P 






1070 GOTO 135 




o 


2000 FOR F = 0 TO 20 


o 


2010 PRINT AT F 0*" 










o 


2020 NEXT F 


r\ 


2030 PRINT AT 11,4;"AGORA VOCE E UM NHAKULOSO" 






2040 PRINT AT RND # 2030 * RND; CHR$ INT (RND * 10) 






2050 GOTO 2040 




o 


2060 STOP 


o 




2070 SAVE "NHAKUS" 






2080 STOP 




o 




o 


o 




o 









75 







Hot* l*t */*»** o l 



Neste jogo voce sera um ladrSo, e um ladrSo motorizado, pois 
possui um carro com motor BASIC, Ibgico, afinal de contas voce 6 um 
ladrSo (no jogo, bem entendido), e n£o pode possuir um motor ASSEM- 
BLY (pelo menos por enquanto). 

Na tela aparecera nove quadrados, sendo que o centra de cada um 
deles possui uma avenida na vertical (constitui'das de caracteres ponti- 
Ihados) que sSo fechadas na parte superior. Estas avenidas s6 podem ser 
ultrapassadas de baixo para cima. Nelas estSo todos os bancos da cidade 
que vocS ird roubar, mas pelas outras ruas existem em alguns pontos, 
policiais que guardam a cidade. Como seu tempo 6 limitado, ter3 que 
planejar o melhor itinertrio para executar seus furtos. NeTo tente roubar 
uma avenida duas vezes, pois as avenidas roubadas serao protegidas 
por portdes eletrificados, o que ocasionar^ sua morte por eletrocussffo. 

Seus contra les sSo os do joystick: 

"5" ESQUERDA 
"8" DIREITA 
"6° PARA BAIXO 
"7" PARA CIMA 

Seja um bom ladr£o, mas s6 no jogo. 



PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATlVEIS 





1 REM SEU LADRAO 
5 REM SIDNEY PARETTI 
10 RAND 
20 POKE 16418,0 
30 LET PO = 0 
40 LET X = 0 
50 LET Y = 0 
55 LET U = 200 
60 LET C = 0 

70 LET D = INT (RND * 25) 

72 LET A = 21 

74 LET B = INT (RND * 28) + 2 
80 LET AA = 6 
90 LET AB = 6 
100 LET AC = 6 
110 LET BA= 16 
120 LET BB = 16 
130 LETBC = 16 
140 LET CA = 26 
150 LET CB = 26 
160 LET CC * 26 
170 LETS = 7 
180 LET I = INT (RND *30) 

190 LET K = 14 

200 LET Q = INT((RND * 29) + 2 

210 LETT = 21 

220 LET P= INT (RND *31) 

230 LET V = 5 
240 LET 0 = 15 
250 LET W = 25 




j| 

290 PRINT AT 1 ,0;A$;AT 8,0;A$;AT 15,0;A$ 

300 FOR G =2 TO 6 

310 PRINT AT G,0;B$;AT G + 7,0;B$;AT G+ 14,0;B$ 

320 NEXT G 

330 PRINT AT 6,0;C$;AT 13,0;C$;AT 20,0;C$ 

340 PRINT AT 22,1 ;"PLACAR:";AT 22,16;"TEMPO:'' 

345 PRINT AT S,I;"G";AT K,Q;"G";AT T,P;"G";AT A,B;"G";AT 
C,D;"G" 



350 FOR F = 0 TO U 

351 LET U = U — 1 

352 IF U < 10 ADN U > 8 THEN PRINT AT 22,22;" 

353 IF U <100 AND U> 98 THEN PRINT AT 22,22;" 
355 PRINT AT 22,22;U 

360 IF X < 0 THEN LET X = 0 
370 IF X > 21 THEN LET X = 21 
380 IF Y < 0 THEN LET Y = 0 
390 IF Y>30THEN LET Y = 30 




v_7 
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510 IF X = S AND Y = I OR X= K AND Y = QOR X = T AND Y = P 
OR X = A AND Y = BORX = C AND Y = D THFN GOTO 2000 
520 IF INKEY$ = "5" AND X/7 = I NT (X/7) THEN LET Y = Y - 1 
530 IF INKEYS = "8" AND X/7 = INT (X/7) THEN LET Y = Y + 1 
540 IF INKEYS = "6" AND Y/10= INT (Y/10) THEN LET X = X + 1 
550 IF INKEYS = '7" AND Y/5 = INT (Y/5) THEN LET X - X- 1 
560 IF Y = V AND X = 1 OR Y = V AND X = 8 OR Y = V AND X = 

15 THEN GOTO 1000 

570 IF Y = 0 AND X = 1 OR Y = 0 AND X = 8 OR Y = O AND X = 

15 THEN GOTO 1000 

580 IF Y = W AND X = 1 OR Y = W AND X = 8 OR Y = W AND X = 
15 THEN GOTO 1000 

600 IF X = 6 AND Y = AA O R X = 6 AND Y=BAORX = 6 AND Y = 
CATHEN GOTO 1500 

610 IF X = 13 AND Y“ AB OR X = 13 AND Y“BBORX-13 AND 

Y = CB THEN GOTO 1500 

620 IF X = 20 AND Y = AC OR X = 20 AND Y = BC OR X = 20 AND 

Y = CC THEN GOTO 1500 

630 PRINT AT X,Y;"H";ATX,Y;" " 

650 NEXT F 
660 GOTO 2500 
1010 LET R = INT (RND * 12) 

1020 IF R >6 THEN LET PO = PO + R 
1030 IF R <2 THEN LET PO = PO - R 
1040 IF PO> 10 THEN PRINT AT 22,8;" 

1050 IF PO > 100 THEN PRINT AT 22,8;" 

1070 IF X = 1 AND Y = V THEN LET AA = 5 
1080 IF X = 8 AND Y = V THEN LET AB = 5 
1090 IF X = 15 AND Y = V THEN LET AC = 5 
1100 IF X = 1 AND Y - 0 THEN LET BA= 15 
1110 IF X = 8 AND Y = OTHEN LET BB = 15 
1120 IF X = 15 AND Y = 0 THEN LETBC=15 
1130 IF X = AND Y = W THEN LETCA = 25 
1140 IF X = 8 AND Y = W THEN LET CB = 25 
1150 IF X= 15 AND Y= W THEN LETCC = 25 
1160 PRINT AT 22,8 ;PO 
1170 PRINT AT 6,AA;"B" 

1180 PRINT AT 13,AB;"«" 

1190 PRINT AT 20,AC;"B" 

1200 PRINT AT 6,BA;"B" 

1210 PRINT AT 13,BB;"^" 

1220 PRINT AT 20,BC;"«" 

1230 PRINT AT 6,CA;"«" 

1240 PRINT AT 13,CB;'^1" 

1250 PRINT AT20,CC;"B" 

1255 LET X = X - 1 
1260 GOTO 350 

1500 PRINT AT 12,5;"VOCE FOI ELETROCUTADO" 

1510 PRINT AT 12,5;"VOCE FOI ELETROCUTADO" 

1520 GOTO 1500 

2000 PRINT AT 12,9;"VOCE FOI PRESO" 

2010 PRINT AT 13,9;"^^^JVVW" 

2020 PRINT AT 13,95' VtfWVtfW' 

2030 GOTO 2010 
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2500 PRINT AT 12,8;"SEU TEMPO ACABOU." 

2510 PAUSE 200 

2520 POKE 16437,255 

2530 PRINT AT 12,8;"TENTE OUTRA VEZ" 

2540 GOTO 10 

ATENQAO: NA LINHA 1510 TANTO AS LETRAS COMO OS ESPA- 
QOS SAO EM IN VERSO. 




Cartuchos para PJAft! 



1 24- SPACE CAVF.RN 

125- SPACE CHASE 

126- SPACE INVADERS 

1 27- SPACE JOCKEY 
1 28 SPACE WAR 

I 29- SPIDER FIGHTER 
l JO- SPIDER MAN 
I 31- SNAKE 
I J2- STAMPEDE 
I 33- STAR MASTER 
1)4- STAR SHIP 

135- STAR VOYAGER 

136- STAR WARS 

137- SUB SCAN 

I 38 SUPER BREAKOUT 

1 39- SUPER FOOTBALL (P) 

140- SUPERMAN 

141- SURROUND 

142- TAC SCAN (P) 

143- TAPE WORN 

144- TENNIS 

145- THRESHOLD 

146- TOWERING INFERNO 

147- TRICK SHOOT 

148- TOUPEIRA (GOPHER) 

149- TRON 

150- VENTURE 

151- VIDEO CHECKERS 

152- VIDEO CHESS 

153- VIDEO OUMPCS(P) 

154- VIDEO PINBALL 

155- VOLLEYBALL 
156 WABBIT 

157- WAR LORDS <P) 

158- WAR PLOCK 

159- WIZARD OF' WOR 

160- WORM WAR I 

161- WORD ZAPPLR 
162 YAR-S REVENGE 
I 6 J-X-MAN 



40- CRYPTS OF CHAOS 83- KING KONG 

41 CROSS FORCE 84 LASER BLAST 

4 2 CUSTE R 5 RE VENGE 85- LOST LUGGARE 

43- DARK CAVERN 86 LOCK N CHASE 

44- DE-ALY DUCK 87- M. A. D. 

45- DEMON ATTACK 86 MARAUDER 

46 DEMOS TO DIAMONDS (P) 89- MASH 

47 DODGEEM 90- MATH GRAND P» 

48- DEFENDER 91- MEGAMANIA 

49- DOLPHIN 92- MINES OF MINOS 

50- DONKEY KONG 93- MISSILE COMMA! 

51- DRAGON FIRE 94- MOUSE TRAP 

52- DRAGSTER 95- NEXAR 

53- EGG MANIA (P) 96 NIGHT DRIVER ( 

54- ENDURO 97- NO SCAPE 

55- ENCOUTER AT L-5 98- OINK 

56 FANTASTIC VOYAGER 99 . OTHELO 

57- FAST EDDIE 100- OUTHW 

58- FAST FOOD 101-PACMAN 

59- FINAL APPROACH 102- PELF’S SOCCER 

66 FIRE FIGHTER 106 PITFALL 

61 FISHING DERBY 104- PLACK ATTACK 

62- FLASH GORDON 1 05- PLANET PATROl 

63- FLOGS AND FLIES 106 PRISAO MORTAl 

64- FOOTBALL 107- Q. BERT 

65- FREE WAY 108- RACQUETBALL 

66 - FROGGER 106 RAM IT 

67- FROST BTTE 1 10- REACTOR 

68 - GAM AO 111 RIDDLE OF THE 

69- GANGSTER ALLEY 1 12- RIVER RAID 

70- GOLF 113- SCREAMING 

71- GORF 1 14- SEAQUEST 

72- GRAND PRIX 115 SHARCK ATTAt 

73- HANG MAN 116 SHOOTIN’ GALL 

74- HAUTED HOUSE 117- SKIING 

75- HOME RUN 118- SKY DIVER 

76 ICE HOCKEY 1 16 SKY JINKS 

77- INFI LTRATE 1 20- SLOT RACERS 

78 INTERNATIONAL SOCCER 121- SNEAKTN PEEK 
76 JAW BRAKER 122- SNOOKER 

80- JOURNEY SCAPE 123- SPACE ATTACK 

81- KABOON m 

82- KEYSTONE 



1- ADVENTURE 

2- AIRLOCK 

V AIR RAIDERS 

4- AIR SFA BATTLE 

5- ALIEN 

6 AM1DAR 

7 ARMOR AMBUST 
6 ASTROBLAST 

6 ATLANTIS 
10- BACHELOR PARTY (P) 

II BANCK HEIST 

1? BARNSTORMING 

1 3- BASIC PROGRAMING (K) 

14- BASKETBALL 

15- BE ATE M AND EATEM (P) 
16 BEANY BOP PER 

17- BERZEK 

18- BOWLING 
16 BOXING 

20- BERMUDE TRIANGLE 

21- BLACK JACK 

22- BRAIN GAMES (K) 

23- BREAKOUT 

24- BRIDGE (P> 

25- BUGS 

26 CANYON BOMBER (P) 

27- CARNIVAL 

28- CASSINO 

26 CHECKERS II 
36 CHOPPER COMMAND 

31- CIRCUS ATARI 

32- COBRA STIKE 

33- COCO NUTS 

34- CODE BREAKER <K) 

35- COMMAND RAID 
36 CONCENTRATION 

37- COSMIC ARK 

38- COSMIC SW ARM 
36 CRACKPOTS 



PAGAMENTO ANTECIPADO 



SIM. DESEJO RECEBER PELO REEMBOLSO POSTAL O(S) CARTUCHO(S) DE N<HS) 

SEM DESPESAS DE POSTAGEM, ENCOMENDA PELA QUAL PAGAREI COM CHEQUE VISADO □, 
VALE POSTAL □. A FAVOR DE: DIGIKIT COMERCIO E EXPORTAQAO DE COMPONENTES 
ELETRONICOS LTDA. - AV. AMADOR BUENO DA VEIGA, 4.176 - CEP 03652 - SAO PAULO - 
SP - A IMPORTANCE DE APENAS Cr$ 23.000, OOPOR UNIDADE. 

NOME 

ENDERECO N9 

BAIRRO CIDADE ESTADO 

CEP NO do R. G 

w ASSINATURA > 
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Todos n6s temos a incrfvel tendgncia de ser um milion£rio (n£o sei 
por que!?). 

Neste jogo voc6 serd um famoso miliondrio (jd 6 alguma coisa...), 
muito desconfiado e tamb6m muito precavido, pois leva seu dinheiro 
desde sua casa at6 o banco, sozinho e sem qualquer escolta. Como em 
toda metrdpole que preste, tern por obrigapSo possuir "alguns" ladroes 
em toda parte, este jogo tamb6m possui ladrdes, pois ele Simula uma 
metrdpole. 

Seu objetivo e evitar ser roubado durante o trajeto, o que serd um 
pouco diffcil, jd que existem ladrdes que simplesmente surgem do "na* 
da". 

Como vocfi pode carregar seu dinheiro aos poucos, terd que fazer 
vdrias viagens. Se tiver um pouco de sorte, ou melhor, muita sorte, 
conseguird com muita manobra fazer mais do que uma viagem. 

Seus controles sffo os mesmos do joystick: 

"5" ESQUERDA 
"8" DIREITA 
"6" PARA BAIXO 
'7" PARACIMA 

PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATlVEIS 
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3 RAND 

4 SLOW 

5 LET A$ = " 

6 FOR N = 0 TO 21 

8 PRINT AT N,0;" ■■■■■■■■■■■■■■■■■ 

9 NEXT N 

10 FOR N = 1 TO 4 

20 PRINT AT N,0;A$;AT N + 5,0;A$;AT N + 10,0;A$;AT N + 15,0; 
A$ 

24 NEXT N 
30 LET PO = 0 

32 LET N = 0 

33 LET V = 0 
43 LET W = 30 
45 LET M = 20 

400 FOR F = 0 TO 31 

401 LET B= CODE INKEY$ 



402 IF N <0 THEN LET N = 0 

403 IF N> 20 THEN LET N = 20 

404 IF V <0 THEN LET N = 0 

405 IF V> 30 THEN LET V = 30 

410 LET S = INT (RND * 20) - N + N 

411 LET K = INT (RND* 30) -1 

428 IF B = 33 AND N/5 = INT (N/5) THEN LET V = V - 1 

429 IF B = 34 AND V/5 = INT (V/5) THEN LET N = N + 1 

430 IF B = 35 AND V/5 - INT (V/5) THEN LET N = N - 1 

440 IF B = 36 AND N/5 = INT (N/5) THEN LET V = V + 1 

445 IF N = M AND V = WTHEN GOTO 1500 

446 IF N =STHEN GOTO 1550 
450 PRINT AT S,K;"*" 

500 PRINT AT N,V;"0";AT N,V;"H" 

515 PRINT AT M,W;" | " 

600 NEXT F 
800 GOTO 400 
1500 PRINT AT 1 1,11;' 

1503 PRINT AT 12,11," 

1504 PRINT AT 13,11 ; 

1505 PRINT AT 14,11; 

1518 FOR Q = 0 TO 9 
1520 LET PO = PO + 10 

1523 PRINT AT 14,14;PO 

1524 NEXT Q 

1525 GOTO 32 

1550 LET A$ = " LADROES 

1551 FOR N = 0 TO 21 

1552 PRINT AT N,0;"HH1 

1553 NEXT N 

1554 FOR N - 1 TO 4 




LADROES LADROES 



1555 PRINT AT N,0;A$;AT N + 5;0;A$;AT N + 10,0;AT N + 15,0;A$ 

1556 NEXT N 

1557 PRINT AT " 

1559 PRINT AT 10,4;"SEUS PONTOS FORAM:";PO 

1560 PR l NT AT 1 1 
1570 GOTO 1 
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Se voc6 e um aut£ntico viciado em vinte e um, e costuma jogar a 
dinheiro ao ponto de apostar sua mSie (e perder), nffo corra mais este 
risco, passe a jogar com seu microcomputador. Mesmo jogando a dinhei- 
ro, jamais sairS per den do, pois seu computador n£o poderd cobrd-lo, o 
mdximo que poderd acontecer 6 ser desmoralizado por ele. 

Este programa sorteia cartas, abertas ou fechadas, desafiando-o 
para uma nova partida, e duvida ser capaz de perder na maioria das 
vezes. 

S 6 hd um problema, se ganhar do seu micro nSo conte a ninguem, 
pois dirSfo que voce 6 um usurpador de micros indefesos, da mesma for- 
ma, se perder dirffo que perdeu para uma insignificante "maquininha de 
calcular". 

NOTA: NSo esmurre seu micro se perder dele (custa caro). 

PROGRAMA DESENVOLVIDO PARA A LINHA TRS-80 E COMPATlVEIS 
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1 CLSs CLEAR2000 
7 PRINTSTRING® < 62.- 6.1 ) 

T. PR I NT®1 *64, STR I NR* (26, 61) SPRINTS 1*64+27, " VI N 
TE E UM "; :PRINT$t *64+39, "STRING* <24,61 > 

4 PR I NTii) 7. 2*64 » STR I NG* (62,61) 

5 PRTMTS)4*64, "ESTE JOGO CONSISTE EM UM SORTEIO 
DE 1 A 5 CARTAS, CUJA INTFNSAO F f DE TENT EAR FA2 
ER O MAT DR NUMEROS DE POSSTVEL SEM ULTRA-PASSAR 

71 it • 

6 PR.TNT®7*64, "PODENDO 01 J NAO TER A PR IMP: IRA CAR 
iTA ABERTA 01 1 FECHADA.AS CARTAS TERAO SEUS VALOR 
ES VE X A 10 NORMAL MENTE,SENDO QUE 0 VALETE=\7,0 

REI=K E A RA T NHA=Q TER AO SEIJS VAlORES XGIJATS A 
20 "? 
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7 PRINT® 11*64, "OS NAIPES SERAO REPRESENTADOS PE) 
LAS SUAS RESPECTIVAS 1NTCTAIS. "5 

8 FORA 1 = 1 TO 1 OO s PR I NT® 1 3*644-2 , STR I NG* (60,32): FDR 
A2=l TCI 1002 NEXT A2 : PR I NT®1 3*644-2, "P / COMECAR PRE 
SB I ONE A BARRA DE ESPACO. " ? : F0RA3 =1 TO 100: NEXTA3 
: A5*= I NKEY* s I FA5*=CHR* ( 32 ) THEN 10 ELSE NEXT At 

9 PRINT® 15*64, STRINGS (62,61 ) 

10 CLS: PRINTSTRING* (62,61) :PRINT®8*64, "QUER CAR 
TA"? SPRINT® 7*64+15, " ABERT A< D I G I TE — 1 > . " : : PRINTER 
4:644- 15, " FECH AD A < D I G I TE-2 > . " 5 

11 A6*=INKEY*: IFA6*= M,, THEN 11 

12 IF A6*=" 1 "THEN 216 
.13 IF A6*="2"THEN 14 

14 CLS: W=0: Q=0 

15 FOR U= 1 T06 

16 RANDOM 

17 I =RND (13): N=RND ( 4 ) 

18 ON U GOSUB 175,151,157,163,169 

19 IF U=1 THEN NEXTU 

20 ON IGOSUB 111,115,118,121,124,127,130,133,13 
6, 139, 142, 145, 148 

21 C2=W:W=C2+I 

22 V=lM 

23 IF 1=11 THEN W=V+9 

24 TF T = 1 2 THEN W=V+B 

25 TF 1=13 THEN W=V+7 

26 PRINTS! 44:644-42, "SOMA = ";W; 

27 IFIJ=6 THEN 33 

2B PRINTS 14-4644-2, "DESEJA MAIS CARTAS (S/N)?."J 

29 A3*= INKEY*: IF A3*=" ’’THEN 29 

30 IF A3*— "N" THEN 33 

31 TF A3*="S M THEN PRINT® 14*64+2, STRING* (30, 32) 

: NEXTU 

32 TF A3*< VS" OR A3*< >"N" THEN 28 

33 PR I NT® 15*64+1, “VOCE AINDA TEM A CARTA OCULTA, 
GOSTARI A DE VE-jLA (S/N) 

34 A4*= INKEY*: IF A4*=" "THEN 34 

35 IF A4*="S“ THEN 38 

36 IF A4*="N" THEN 70 

37 IF A4*< >"5" OR A4*<> ,, N ,, THEN 33 

38 IF N>21 THEN 70 

39 , 

40 ? 

41 »(****: s:: ROTINA DA CARTA OCULTA : : : : **** 

42 » 

43 ’ 

44 R=RND (13): N=RND ( 4 ) 

45 GOSUB 175 

46 GOSUB 203 

47 IF R=1 1 THEN POKEG, 74: POKEH, 74 

48 IF R=12 THEN POKEG, 81 : POKEH, 81 

49 IF R= 1 3 THEN POKEG, 75: POKEH, 75 

50 IF R=1 THEN POKEG, 49: POKEH, 49 

51 IF R=2 THEM POKEG, 50: POKEH, 50 

52 IF R=3 THEN POKEG, 51 : POKEH, 51 

53 IF R=4 THEN POKEG, 52: POKEH, 52 

54 IF R=5 THEN POKEG, 53: POKEH, 53 

55 IF R=6 THEN POKEG, 54: POKEH, 54 
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56 IF R=7 THEN POKEG, 55s POKEH, 55 

57 IF R=8 THEN POKEG, 56: POKEH, 56 

58 IF R=9 THEN POKEG, 57s POKEH, 57 

59 IF R=10 THEN POKEG , 49 : POKEG+ 1 , 48 : POKEH » 49 : PO 
KEH+1,48 

60 D3=w 

61 W=D3+R 
6? K=uJ 

63 IF R=1 1 THEN W=K+9 

64 IF R*12 THEN W=K+8 

65 IF R= 1 3 THEN W=K+7 

66 PRINTS>14*64+42, "SOMA = ";W; 

67 FORM*! T0500: NEXTM 

68 ' 

69 ’ 

70 ROTINA DE CARTAS DO COMPUTADOR 

71 * 

72 * 

73 CLSs RANDOM 

74 FOR L=1T05 

75 S=RND (13) 5 T =RND < 4 ) 

76 E2=Q: Q=E2+S 

77 Z=Q 

78 IF S=ll THEN Q=Z+9 

79 IF S=12 THEN Q=Z+8 

80 IF S— 13 THEN Q=Z+7 

81 IF GK15 THEN NEXTL 

82 ? 

B3 ’ 

84 =* ******* : : s : ROTINA DE CONDI COES s : : s ******* 

85 ? 

86 ? 

87 IF Q=15 OR 0<=21 THEN F'RINT5)8*64, "A RANCA TE 
M "5Q5 

88 PR I NT $2*64 , " VOCE TEM ";W? 

R9 IF W=2l AND N=3 THEN FOR M=1T0 5: PRINTS>4*64, 
STR 1 NGfc ( 30 ,32): FORD* 1 T 0 1 00 : NF X TO : PR TNT $4*64 - " VO 
CE GANHOU" 5 :F0RD=lT0100s NEXTD: PRINT$5*64* STRING 

* (30.- 32) :F0RD=lT010O:NEXTDsPRINT$5*64, " VTNTE UM 
ROVAL " : FORD* 1 T 0 1 00 : NEXTD : NEX TM 

90 IF W>21 THEN FORM* 1 T05 : PR I NTS>6*64 * STR I N6$ < 30 

* 32 > : FORD* 1 TO 100 * NEXTDs PRTNT«i)6*64 , "VOCE ESTOURO 
U " ? : FORD* 1 TO 1 00 : NEXTD : NEXTM 

91 IF Q >21 fHFN form* 1T05:PRINTS>1 2*64, STRINGS (5 
0, 32) * FOR D*lT0100s NEXTD: PRINT$t2*64, "EU ESTOIJR 
FI";: FORD* 1 T0 1 00s NEXTD: NEXTM 

92 IF w.>2l AND Q >2 1 THEM FORM* 1T05S PRINT© 1 3*64+ 
20 , STR I NG* ( 40 » 32 ) : F ORD= 1 TO 1 00 s NEX TD s PR T. N TS) 1 3*64 
+20, "NINGUFM GANHOU" 5 : F0RD=1 TO 100: NEXTD: NEXTM 
9*3 r F W>21 AND 6K=21 THEN GOSUB 243 

9 4 if W< 21 AND 0>21 THEN F0RM=1T05: PR I NT$3*64, S 
TR I NGs (30,32): FORD* 1 TO 1 00 : NEXTD < P K I NT $3*64 . " VOC 
E GANHOU": : FORD* 1 TO 100: NEXTD: NEXTM 

95 IF W>Q AND W<21 THEN FOR M=1T0 5: PRXNT$3*64, 
STRINGS (30, 32) : FORD* 1 TO 100: NEXTD: PRINT$3*64, "VO 
CE GANHOU"; :F0RD=1T0100: NEXTD: NEXTM 

96 IF W<0 AND Q<21 THEN GOSUB 243 

97 IF Q=21 AND T=3 THEM GOSUB 269 
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98 IF W=Q AND Q<21 THEN 299 

99 7 

100 * 

101 * *******: : s s ROTINA FINAL s : s : ******* 

102 7 

103 * 

104 PR I NTS) 15*64, "DESEJA JOGAR MAIS UMA PARTIDA 
(S/N)?. " 5 

105 K.l*= INKEYS: IF K IS*” “THEN 105 

106 IF K1*= ,, S" THEN 1 

107 IF K1S="N" THEN END 

108 IF Kl*< >"S” OR K 1 *< >"N M THEN 104 

109 51 

110 ’ 

111 * *******3 ::: 1 = 1 :::: **** ** 

M2 ' 

113 POKEG, 49s POKER, 49 

114 RETURN 

115 7 ******* : : : : 1=25 5 : : ******* 

1 1 6 POKE W , 50 5 : POK EH , 50 

117 RETURN 

118 7 ******5 : : S [ =3 5 : S S ***** 

1 1 9 POKEG ,515 POK EH , 5 1 

120 RETURN 

1 21 7 * **** * ** s ::sl=4:::::: ****** 

1 22 POK EG ,52 s PC1KEM , 52 

123 RETURN 

1 24 9 ********3 : : : : 1=55 : : : : : ******* 

125 POKEG, 535 POKEH, 53 

126 RETURN 

127 7 ********* • : : • s 3 1=65 : : : : : ****** 

1 28 POKEG , 54 5 POKEH , 54 

129 RETURN 

1 30 7 ********* :::::: I =7 : 5 : : : ******* 

131 POKEG, 555 POKEH, 55 

132 RETURN 

133 7 *******: : : : : I=8s s s : : ***** 

134 POKEG, 565 POKEH, 56 

135 RETURN 

1 36 9 ******* : s s : : I =9 s : : : ***** 

137 POKEG, 57s POKEH, 57 

138 RETURN 

139 7 ****** ::s: 1 = 10 ssss ***** 

1 40 POKEG, 49: POKEG+1 > 48= POKEH, 49s POKEH+1 , 48 

141 RETURN 

142 7 ***** 5 1 = 11 :::: ****** 

: 4. % .-'I U<E8 ,74 5 POKEH , 74 

1 44 RETURN 

145 * ****** s ::::j = 1255ss ******* 

; • Ki - «:» , tiu s POKEH ,81 

147 RETURN 

148 7 ******** s : : : : l = 135ss:s ******* 

**•. • • ;j= t U , /bs POKEH, 75 

150 RETURN 

1M 9 ** s s : 5 s ROTINA DA SEGUNDA CARTA, P=2 s : s s ** 
152 G- 15429s H= 15757 

15:- FOR V=2T021 s SET <7, Y) : SET <35, Y) : NEXTY: SET <8, 
1 ) s SET <34, 1) :SET <8, 22) i SET <34,22) 
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154 FGEX=i 0TG32: SET (X, 0) sSET(X»23) s NEXTX 

155 GOSUB 182 

156 RETURN 

157 9 sHJiwfesHHc : : : s r. ; T ERCE I RA CARTA? P=3 : : : : : 

158 G= 1 5442 :H= 15770 

159 F0RY=2T021 s SET (33, Y) s BET (61? Y) s NEXTYs SET (34, 
1) : SET (60, 1) s SET (34, 22) : SET (60, 22) 

160 F0RX=36T058s SET (X,0) :SET(X,23) 8 NEXTX 

161 G0SUB191 

162 RETURN 

163 9 a#ea»«9|eafeafeHeHs 8 S I S ! : QUART A CARTA, P=4 2 i S 5 ******** 

164 G= 1 5455 SH= 15783 

165 FGRY=2T021 s SET (59,Y> : SET (87, Y) s NEXT Y: SET (60, 
1) : SET (86, 1) s SET (60, 22) :SET(B6,22) 

166 F0RX=62T084: SET (X, 0) sSET(X,23) : NEXTX 

167 GOSUB 195 
16B RETURN 

1 69 ? s***.:****: s s s : QUINTA CARTA - P=5 : s : : ****:«oteHn*« 

170 6= 1 5468 - H= 1 5796 

171 FOR Y=2T021 : SET <85, Y> s SET <113, Y) s NEXTYs SET < 
86, 1) s SET (112, 1 ) : SET (86, 22) s SET ( n 2- 22) 

172 F0RX=88T0 110 s SET (X, O) : SET < X, 23) s NEXTX 

173 BQSU8 199 

1 74 RETURN 

175 51 ****** s : s : : : PR I ME IRA CARTA, p= 1 list-***** 

3 76 G= 1 5959 s H= 1 6 1 33 



177 F0RY=27T037:SET(7, Y) :SET(55,Y> : NEXTYs SET (54 
,26) : SET (54, 38) : SET (8, 26) :SET(b,38> 



178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

1 88 

189 

190 

191 

192 



F0RX=9T053: SET (X, 25) : SET (X, 39) : NEXTX 
RETURN 



COORDENADA DOS NAIPES DAS CARTAS :::: 

T- ■ ' • •t- 



* ;+: •'+; :+: * I ! ! 5 5 

A=15432: 8=15758 
GOSUB 207 
RETURN 
RETURN 

9 *****::#:*}*:* J 5 : S : : : 

8=15444: B= 1 5772 



CARTA 2 : : 



S : 5+: if: 



CARTA 3s : 



******* 



193 G0SUB207 

194 RETURN 

1 95 ’♦****: ::::::::::: CARTA 4: ::::::: s s : ****** 

196 A= 15457: 8=15785 

197 GOSUB 207 
19R RETURN 



3 99 51 **********: CARTA 5s s ****** 

200 A=1 5470: 8=15798 

201 G0SU8207 

202 RETURN 



203 * ********* ::::::::: CARTA 1 ::::::::: **** 

20 4 As] 5961 IBs l 61 35 

205 GOSUB 207 

206 RETURN 
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207 ? ++++*+++h«*«+ : s::::::::::::::: + + + + + + + + + + + + + + 
20R ? *+++++++***: : S COMO / MAIPEB - - ! + + + * + + + + + * * * * + + 

209 * * H: :+: * :+: *. * -•+; *: * + I S I S : Z 5 ! S S S S S S * 5 + + + + + + * * * * * * * * + 

210 C=67SE=69:0=79:P=80 

211 IF N=1 THEN POKE A, C: POKE B,C 

212 IF N=2 THEN POKE A, E: POKE B,E 

213 IF N=4 THEN POKE A , 0 : POKE B,0 

214 IF N=4 THEN POKE A* P: POKE B,P 



215 RETURN 

21 6 7 *++++: S 

217 ' +++++ l 2 



SORTEIO DA CARTA ABERTA 



+++ 

+++ 



218 CLSs W=0sQ=0sL=0: J=0 

219 F0RU=1T06 

220 RANDOM 

221 T=RND(13> :N=RND(4) 

722 ON U GOSUB 237,151,157,163,169 

223 ON I GOSUB 111,115,118,121,124,127,130,133, 

136, 139, 142, 145, 148 



224 B1=W: W=B1+I 

225 8?=W 

226 IF 1=11 THEN W=B2+9 
727 IF 1=12 THEN W=B2+8 

228 IF 1 = 13 THF:‘N W=B2+7 

229 PRINTS! 4+64+42, “SOMA =”SW? 

230 IFU=6 THEN 236 

231 PRINT® 14+64+2, "DESEJA MAIS CARTAS <S/N>?.": 

232 B3$= I NkE V* : T FB3*= " " THEN 232 

233 IF B3*® ,, N” THEN 70 

234 IF B3*="S" THEN PR I NT© 14+64+2, STRING* (30, 32 
) : NEXTU 

235 ( F B3S< >"S" OR B3*<>"N" THEN 231 

236 RETURN 

237 ? ROTINA DA PRIMEIRA CARTA ABERTA ::: 

238 8=17.959: H=1 61 33 

239 FOR Y=27TQ37 : SET <7, Y) 2 SET (55, V) s NEXTY : SET (5 
4,26) s SET (54, 38) : SET (8, 26) : SET (8,381 

240 F0RX=9T0 53: SET (X, 25) : GET (X, 39) : NEXTX 
741 GOSUB 203 

2*2 RETURN 

243 CL5: ’ ++++++++: : : : : : ROT /DES/GANHEI : : : : : ++++ 

744 F0RY=3T05: FORX=7T035: SET (X, Y) : NEXTX: NEXTY 

745 F0RY=3T05: F0RX=44T071 : SET (X, Y) : NEXTX: NEXTY 

246 F0RY=12T0 14: F0RX=26T041 : SET (X, Y) : NEXTX: NEXTY 

247 FOR Y= 1 2T0 1 4 : F0RX=84T099 : SET ( X , Y > 8 NEXTX : NEXTY 

248 F0RY=12T014: F0RX=47T066: SET (X, Y) : NEXTX: NEXTY 

249 F0RY=18T020: F0RX=1 12T01 17: SET (X, Y) : NEXTH: NEXTV 
25C F0RY=18T020: F0RX=7T035s SET (X, Y) : NEXTX: NEXTY 

251 F0RY=24T026: FQRX=80TD103s SET (X, Y) : NEXTX: NEXTY 

252 FOR Y=30T032 s F0RX=44T07 1 s SET ( X , Y ) : NEXTX: NEXTY 

253 F0RY=30T032: F0RX=80TG103: SET (X, Y> : NEXTX: NEXTY 

254 F0RY=39T041 : F0RX=80T0103: SET (X, Y) : NEXTX: NEXTY 

255 F0RY=3TQ208 F0RX=7T01 2: SET (X, Y) : NEXTX s NEXTY 

256 FDRY=15T02C>: F0RX=31T035: SET (X, Y) : NEXTX: NEXTY 

257 F0RY=3T02O: F0RX=44T050: SET (X, Y) : NEXTX: NEXTY 

258 F0RY=3T020: F0RX=65T07t s SET (X, Y) : NEXTX: NEXTY 

259 F0RY=*24T041 : F0RX=8T013: SET <X, Y> : NEXTX: NEXTY 

260 F0RY=24T041 : F0RX=30T035: SET (X, Y> : NEXTX: NEXTY 




261 F0RY=24T041 : F0RX=44T049: SET (X. Y) : NEXTX: NEXT Y 
.'■•62 F0RY=24T041 : F0RX=66TQ7 1 2 SET ( X, Y) : NEXTX: NEXTY 
263 F0RY=24T041 : FQRX«80TQ85> SET < X , Y ) : NEXTX: NEXT Y 
7*4 FGRY«24T041 :FT»RX=1 t 2T01 17: SET < X ? Y ) : NEXTX : NEXTV 
265 W9=MJK9=15 

E0RY=24T041 : F0RX=W9 TO K.9: SET (X, Y) : TFX=32THEN2 

68 

267 N9-N9-H : K9=K9+1 : NEXTX: NEXTY 

268 FORM= 1 T01000: NEXTN: RETURN 

269 CLS: 9 *******: : : : ROT /DES/ROYAL: : : : : : *******:**: 

270 * 

271 * 

272 PRINT©1*64, " VINTE E UM " ? 

273 F0RY=9T0U:F0RX«2T025:SET(X, Y) : NEXTX: NEXTY 

274 F0RY=9T01 1 : F0RX*28T051 : SET (X> Y) : NEXTX: NEXTY 

275 F0RY=9T011:F0RX=B0T0103:SET(X, Y) : NEXTX: NEXTY 

276 F0RY=9TQ1 1 : F0RX=54T059: SET ( X? Y) : NEXTX: NEXTY 

277 F0RY=9T0 1 1 : F0RX=72T077: SET (X, Y) : NEXTX: NEXTY 

278 FQRY=1 5T017: F0RX=2TG25: SET (X? Y) : NEXTX: NEXTY 
779 F0RY=1 5T017: F0RX=54T077: SET (X, Y) : NEXTX: NEXTY 

280 F0RY=15T017: F0RX=80T0103s SET <X.- V) : NEXTX: NEXTY 

281 F0RY*24T026S F0RX=28T051 : SET < X * I ) : NEXTX: NEXTY 

282 F0RY=24T026: FORX— 106T0127 : SET (X? Y) : NEXTX: NEXTY 

283 F0RY=9T026: F0RX=2T07 : SET <X? Y) : NEXTX: NEXTY 
7R 4 FOR Y=9T026SF0RX=*2BT 033: SET ( X, Y> : NEXTX: NEXTY 

785 FfjRY»9T026: F0RX=46T051 : SET (X, Y) : NEXTX: NEXTY 

786 F0RY=9T026: F0RX=80T085: SET (X? Y) : NEXTX: NEXTY 
287 FHRY=9 T 026: P 0RX«98T01 03: SET <X, Y) : NEXTX: NEX TY 
2R9 F0RY=9T026:F0RX=106T0111 : SET tX, Y) : NEXTX: NEXTV 

289 FORY=l 2701 4: F0RX=20T025: SET ( K , V ) : NEXTX: NEXTY 

290 FORY= 1 2TQ1 4: F0RX=54T 059 : SET (X,V> : NEXTX: NEXTY 
79 1 F0RY=17T014SF0RX=72T' >77 : SET (X- Y) : NEXTX: NEXTY 

292 FORY« 1 8T026 : F0RX=63T06B : SET ( X , Y ) # NEXTX : NEXT Y 

293 HR«t 1 : kR=17: 7 .1 =1 1 : Z2~.t 7 

294 F0RY»1 8T026S FORX=HRTOKR: SET <X^Y) : IFX=25 THEN 
297 

295 HR=71+Z32k.R=Z2+Z3: Z3-Z3+1 /4 

296 NEXTX: NEXTY 

297 F0RM=1T05: PRINTo>12* : 64-f-8, STRING* (10? 32) :F0RD«1 
TO 100: NEXTDs PRINTS) 12*64+8-. “GANHE J " ? : F0RD*1T0100: 

NEXTD: NEXTM 
798 RETURN 

299 CLS: ’ ******** : : s : : rot/ REVAN/: : : s : : ******** 

300 PRJNT©2*64* "NOS EMPATAMOS, SENDO ASSIM TENHO 0 
DIRE I TO DE SABER QUEIi E’ M£LHOR,EU OtJ VOCE."? 

301 FORM— 1 TO 2000: NEXTM: GOTO! 



Lcteria Esocrtiva 




Para quern nunca jogou na loteria esportiva, ou mesmo para aqueles 
que s So fandticos em fazer "uma fezinha", eis aqui uma sugestdb; deixe 
seu computador jogar para vocd. £ um programa que sorteia aleatoria- 
mente cartdes, fazendo inclusive os duplos e triplos, ora, na maioria 
das vezes em que jogamos, SEMPRE dd uma zebra, quern sabe se seu 
computador n£o jogue melhor que voc§? Nao custa tentar, ou melhor 
dar uma chance ao seu computador, 6 Idgico que, sem a sua ajuda ele 
nab o fard, portanto de uma "mabzinha" d ele, e boa sorte aos dois. 





) 0 * * Jfc *: >♦< :-f- ♦ ■*' A :* -•+: ■¥ :+: :*: :+: :*: :+: *: :+: * * :+: '.* # :* •+: 

20 *** ALEXANDRE TERRA DE CALAZANS FERNANDES ** 
30 *** ENG. MACK = TEL: 280-5804 ** 

40 * ************* sf!*******:***#:***:*:*:*:?*!*:** ♦*♦}*:>♦< if: **: 
50 ? ** J0G0 DA LETERIA ESPORTIVA ************** 

60 9 ** ************************* ******>|<i+i)t;}ft:fof:}{c»fc* * 

70 ’ 

80 CLS: CLEAR 2000 

90 PRINTS)19, "LOTERIA ESPORTIVA"? 

100 A$=STRING*(24> 191 ) 

110 PR I NT380 9 A$ ? : A= 1 5504 
120 PR I NT S) 1 5*64+ 16? A$ * 

130 FOR 1=1 TO 13 

140 POKE A, 191 :POKE A+5, 191 : POKE A+ 10, 191 : POKE 
A+15, 191 : POKE A+19, 191 : POKE A+23, 191 s PRINTS) ( 1 + 1 ) 
*64+12, IS 
150 A=A+64 
160 NEXT 

170 PRINT382. “ 1 "S SPRINT387, ” X " s : PR I NTS>9 1 , " 2 
"5 :PRINTS)96, " D ” 5 s PRINTS) lOO, " T "s 
180 PRINTS)2*64+42, "QUANTOS DUPLOS?" ? : PRINTS>3*64+ 
42, "MAX. DE 5 "5 

190 BS= INKEY*: IF B*="" THEN 190 
200 B=VAL <B*) : IF B>5 THEN 190 

210 PRINT35+64+42, "QUANTOS TRIPLOS?" ? : PR JNT36+64 
+42, "MAX. DE 3 "S 

220 CS— INKEY* s TF 0$="" THEN 220 
230 OVAL (C*): IF 03 THEN 220 
240 D*— CHR* (14o) +CHR* (140) 

250 IF 8=0 THEN B=.l 
260 FOR 1=1 10 13 

270 R=RND<3> : PRI NTS ( I + 1 > *64+ ( <R*6)+U) ,D*s 
280 NEXT 

290 FORI = 1 TO B 

300 PRINTS) <RND ( 13) +1 ) *64+33, CHR* (140)? 

310 NEXT 

320 IF C=0 THEN 360 
330 FOR 1=1 TO C 

340 PR I NTS) ( RND ( 1 3 ) + 1 ) *64+37 , CHR* (140)? 

350 NEXT 

360 F0RJ=0 TO 15: PRINTS)J*64+42, CHR* (30) ? : NEXT 
370 PRINTS>8*64+42, "TECLE <- ENTER -> " ; 

380 PRINT39+64+42, "F7 CONTINUAR" ? 

390 F*=INKEY*s IF F*="" THEN 390 

400 IF F*< > CHR* (13) THEN 390 ELSE 10 





PROGRAMA EXEMPLO PARA 
CONSISTENCY E FORMATAQAO DE DAT AS 



O corapdo deste programa exemplo consiste nas duas rotinas (linhas 
32000 a 33000) que sffo respectivamente a de formatapSo e consistencia 
de datas. 

As linhas 10 a 150, sSo apenas um programa principal de exemplo 
de utilizapcfo das rotinas, com exce^o da linha 40, que sempre dever£ 
ser mantida, visto que uma segunda utilizagS’o da rotina 33000 com a 
inclusffo da linha 40, iria provocar um erro DD (Redimensionamento 
de matriz). 

A variavel ER contem a informapSo de data invSIida quando ER = 1 
e data vdlida quando ER = 0. 

SSo duas rotinas de fclcil utilizapSo por qualquer programa. 



PROGRAMA DESENVOLVIDO PARA A LINHA TRS-80 E COMPATlVEIS 



10 PROGRAMA EXEMPLO PARA CONSISTENCIA E 
FORMATACAO DE DATAS 

20 AUTOR: JOSE MANUEL ONETO Y VI LA - FONE: 458-0938 
40 DIM DM (12) 

50 CLS 

60 DT = 0: INPUT "DATA DE HOJE (tfDMMAA)";DT 
70 GOSUB 32000 'FORMATA DATA 
80 GOSUB 33000 'CONSISTE DATA 

90 IF ER = 1 THEN PRINT "DATA INVALIDA PRINT : GOTO 
60 

100 PRINT "DATA CORRETA: -*■ ";DB$ 

110 PRINT 

120 PRINT "CONTINUA (S/N) 

130 R$ 85 " INPUT R$ : R$ = LEFTS (R$,1) 

140 IF R$ = "S" THEN GOTO 50 
150 END 

32000 ' ROTINA PARA FORMATACAO DE DATAS 
32010 ' DB$ -+ DATA FORMATADA 
32020 ' 

32030 DT$ = STR$(DT) 

32040 DT$= RIGHT$(DT$,LEN(DT$)— 1 ) 

32050 DT$» RIGHTS ("000000" + DTS, 6) 

32060 DIAS = MID$ (DT$, 1,2) 

32070 MES$= MIDS (DT$,3^) 

32080 ANOS = MIDS (DT$, 5,2) 

32090 DBS = DIAS + + MESS + + ANOS 

32100 RETURN 

33000 ' SUBROTINA DE CONSISTENCIA DE DATA 
33010 ' 

33020 DAT A 3 1,28, 3 1,30, 31 ,30,31 ,31 ,30,31 ,30,31 
33030 FOR I ■ 1 TO 12 




33040 READ DM (I) 

33050 NEXT I 
33060 RESTORE 
33070 DIA = VAL (DIAS) 

33080 MES = VAL (MESS) 

33090 ANO = VAL (ANO$) 

33100 ANO = ANO + 1900 
33110 ER = 0 

33120 IF INT (ANO/4) * 4 = ANO AND I NT (ANO/400) # 400 < > 
ANO THEN DM (2) = 29 

33130 IF MES < 1 OR MES > 12 THEN ER = 1 : RETURN 
33140 IF DIA < 1 OR DIA>31 THEN ER = 1 : RETURN 
33150 IF DIA > DM (MES) THEN ER = 1 .RETURN 
33160 RETURN 



VISUAL 

Este pro grama provoca um efeito visual muito interessante no video, 
e uma senoide de variadas posi^Ges. Tente alterar o programa, de modo 
que ele provoque novos efeitos visuais, vale a pena tentar, pois s6 assim 
vocg poderd familiarizar-se com seu micro computador. 



PROGRAMA DESENVOLVIDO PARA A LINHA TRS^O E COMPATlVEIS 



10 PROGRAMA DE EFEITO VISUAL COM SENOIDES 
15 PARA TRS-80 MODELOS I E III E COMPATlVEIS 
20 AUTOR JOSE MANUEL ONETO Y VILA - FONE: 458-0938 
35 CLS 

40 PASSO * 0.5 
50 C = 23 
60 T = 23 

70 IF C*T = 0 GOTO 1000 
80 FOR I = 0 TO 127 
90 X * SIN (l/T) * T + C 
100 IF X < 1 OR X> 47 GOTO 120 
110 SET (l,X) 

120 NEXT I 
130 T= T-1 
140 GOTO 70 
1000 GOTO 1000 



ATENQAO LEITORES: 

Escrevam pedindo esclarecimentos, sugestGes, crfticas, que ser£o 
respondidas atravfe da segSo de cartas. 

Enderece a correspondence para: 

BARTOLO FITTIPALDI 

Revista "SO PROGRAMAS" — Rua Santa Virgrnia,403 
Tatuap^ - CEP 03084 - SAO PAULO - SP. 
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VOCE que fabrica ou vende 
equipamentos ou qualquer 

produto ligado a area de 

^MICROS 77 

ANUNCIE EM 
„ 9 



3 ® 







VEICULO EFICIENTE, QUE 
ATINGE DIRETAMENTE O 
CONSUMIDOR DO 
SEU PRODUTO 




• (Oil) 217.6111 (DIRETO) C 0 



(011)943.8733 (DIRETO) 
(011)223.2037 (CONTATOS) 






Wt, 



